perm filename T.F4[MUS,LCS] blob sn#312560 filedate 1977-10-26 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002		DIMENSION X(10)
C00003 ENDMK
CāŠ—;
	DIMENSION X(10)
	INTEGER X
	DATA X/1,2,3,4,5,6,7,8,9,10/
	CALL TT(X)
	END
	SUBROUTINE TT(J)
	DIMENSION J(1)
	CALL TTT(J)
	END
	SUBROUTINE TTT(M)
	DIMENSION M(1)
	L=0
	DO 1 K=1,10
1	L=M(K)+L
2	END